home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
a_utils
/
perl
/
prlbkxmp.lha
/
ch5
/
findelem.eg
< prev
next >
Wrap
Text File
|
1991-01-08
|
128b
|
7 lines
@a = (1..10);
undef $where;
for ($[ .. $#a) {
$where = $_, last if ($a[$_]**2) > 32;
}
print "$where\n" if defined($where);